fig <- top_univ %>%
      plot_ly(y = ~citations, x = ~ranking,
              text=~university_name, hoverinfo="text") %>%
            add_markers(color = ~country, 
                        colors=mycolors,frame = ~year)
fig

Right arrow to view the next slide.

Slide or Play to see top universities over the years for each country listed. Hover over the data points to see the university. World Universities Data